Top 10k strings from Bingo (1983)(Taller de Aplicaciones Informaticas)(es)[a].z80 in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Games / [Z80] /

Back to the directory listing

   4 ;"PARA CONTINUAR PULSAR 'C'"
   3 ;N;"-BOLAS"
   3 ;"PREMIO ";plin;" pts.";
   2 ddi=ddi+D(car,q):
   2 cci=cci+C(car,q):
   2 aai=aai+A(car,q):
   2 ;"SERIE-";ser:
   2 ;"PREMIO ";pbin;" pts."
   2 ;"PARA CONTINUAR PULSAR 'c'"
   2 ;"CARTON-";car;
   2 ;"CARTON-";a
   2 ;"# # # B I N G O # # #"
   1 sli=sli+D(car,q):
   1 sli=sli+C(car,q):
   1 sli=sli+A(car,q):
   1 s$=" BINGO * BINGO * BINGO * BINGO "
   1 plin=pst*J-pbin
   1 cont=cont+1
   1 Z$="BINGO"
   1 K$="###BINGO##BINGO##BINGO##BINGO###":
   1 D(car,cont)=0
   1 C(car,cont)=0
   1 A=D(car,cont)
   1 A=C(car,cont)
   1 A=A(car,cont)
   1 A(car,cont)=0
   1 ;"SE VUELVE A JUGAR (s/n)"
   1 ;"SE INDICARA EL NUMERO DE CARTON DE LA PRIMERA LINEA Y DEL BINGO."
   1 ;"QUEDAN ";65561
   1 ;"PREMIO LINEA ";plin;" Pts.";
   1 ;"PREMIO BINGO ";pbin;" Pts."
   1 ;"PRECIO POR CARTON ";pst;" Pts."
   1 ;"PARTICIPAN ";J;" JUGADORES"
   1 ;"PARA PARAR PULSAR 'p'"
   1 ;"PARA CONTINUAR PULSAR 'c'";
   1 ;"PARA CONTINUAR PULSAR '
   1 ;"PARA COMENZAR PULSAR 'c'"
   1 ;"PARA ACABAR PULSAR 'a'"
   1 ;"NO SE INDICARAN LOS CARTONES    DE LINEA NI DE BINGO
   1 ;"LOS NUMEROS  ";
   1 ;"INDIQUE EL ORDENADOR"
   1 ;"EXTRAIDAS"
   1 ;"EN SALIR SI SE DESEA QUE SI LO";
   1 ;"DESEA QUE EL ORDENADOR INDIQUE  LA LINEA Y EL BINGO  ";
   1 ;"CADA NUMERO TARDARA ";TSAL;" SEGUNDOS";
   1 ;" SUPERIOR CARTON-";car
   1 ;" LOS NUMEROS IRAN SALIENDO CON   VELOCIDAD ";S;" "
   1 ;" INFERIOR CARTON-";car
   1 ;" ELEGIR VELOCIDAD DE SALIDA DE ";
   1 ;" CORRECTO (s/n)"
   1 ;" CENTRAL CARTON-";car
   1 ;" BYTES LIBRES"
   1 ;"   INDIQUE EL PRECIO DE CARTON  "
   1 ;"   INDICAR NUMERO DE JUGADORES  "
   1 ;"   BOLAS ";
   1 -RAPIDO   
   1 -J.L.del Rio Moreno-1.983
   1 "Pesetas ";pst:
   1 "Numero de Jugadores ";J:
   1  BINGO * BINGO * BINGO * BINGO